home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)td.d64 / proc.convert3 < prev    next >
Text File  |  2007-02-28  |  312b  |  13 lines
  1. 0630 //
  2. 0640 PROC CONVERT(NUMBER) CLOSED
  3. 0650   IMPORT BASE#,RES$
  4. 0660   TEMP:=NUMBER MOD BASE#
  5. 0670   NUMBER:=NUMBER DIV BASE#
  6. 0680   IF NUMBER>0 THEN CONVERT(NUMBER)
  7. 0690   IF TEMP<10 THEN
  8. 0700     RES$:+CHR$(TEMP+ORD("0"))
  9. 0710   ELSE 
  10. 0720     RES$:+CHR$(TEMP-10+ORD("┴"))
  11. 0730   ENDIF 
  12. 0740 ENDPROC CONVERT
  13.